(mouse-choose-completion): Bury the completion buffer.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index fb49a2ced32660461b3c9118f5cacb7a7a799fde..4ff1b9659e479d2ac30694a4dc58f4de3855c683 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1214,6 +1214,10 @@ and selects that window."
        (let ((beg (point)))
          (skip-chars-forward "^ \t\n")
          (setq choice (buffer-substring beg (point))))))
+    (let ((owindow (selected-window)))
+      (select-window (posn-window (event-start event)))
+      (bury-buffer)
+      (select-window owindow))
     (set-buffer buffer)
     (mouse-delete-max-match choice)
     (insert choice)